home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Anwendun / Pov / POVTOOLS / SOURCE / BOXES.C < prev    next >
Encoding:
C/C++ Source or Header  |  1995-11-25  |  9.8 KB  |  402 lines
  1. /****************************************************************************
  2. *                boxes.c
  3. *
  4. *  This module implements the box primitive.
  5. *  This file was written by Alexander Enzmann.    He wrote the code for
  6. *  boxes and generously provided us these enhancements.
  7. *
  8. *  from Persistence of Vision Raytracer
  9. *  Copyright 1993 Persistence of Vision Team
  10. *---------------------------------------------------------------------------
  11. *  NOTICE: This source code file is provided so that users may experiment
  12. *  with enhancements to POV-Ray and to port the software to platforms other 
  13. *  than those supported by the POV-Ray Team.  There are strict rules under
  14. *  which you are permitted to use this file.  The rules are in the file
  15. *  named POVLEGAL.DOC which should be distributed with this file. If 
  16. *  POVLEGAL.DOC is not available or for more info please contact the POV-Ray
  17. *  Team Coordinator by leaving a message in CompuServe's Graphics Developer's
  18. *  Forum.  The latest version of POV-Ray may be found there as well.
  19. *
  20. * This program is based on the popular DKB raytracer version 2.12.
  21. * DKBTrace was originally written by David K. Buck.
  22. * DKBTrace Ver 2.0-2.12 were written by David K. Buck & Aaron A. Collins.
  23. *
  24. *****************************************************************************/
  25.  
  26. #include "frame.h"
  27. #include "vector.h"
  28. #include "povproto.h"
  29.  
  30. METHODS Box_Methods =
  31.   { 
  32.   All_Box_Intersections,
  33.   Inside_Box, Box_Normal,
  34.   Copy_Box, Translate_Box, Rotate_Box, Scale_Box, Transform_Box,
  35.   Invert_Box, Destroy_Box
  36. };
  37.  
  38. extern long Ray_Box_Tests, Ray_Box_Tests_Succeeded;
  39.  
  40. #define close(x, y) (fabs(x-y) < EPSILON ? 1 : 0)
  41.  
  42. int All_Box_Intersections (Object, Ray, Depth_Stack)
  43. OBJECT *Object;
  44. RAY *Ray;
  45. ISTACK *Depth_Stack;
  46.   {
  47.   DBL Depth1, Depth2;
  48.   VECTOR IPoint;
  49.   register int Intersection_Found;
  50.  
  51.   Intersection_Found = FALSE;
  52.  
  53.   if (Intersect_Boxx (Ray, (BOX *)Object, &Depth1, &Depth2))
  54.     {
  55.     VScale (IPoint, Ray->Direction, Depth1);
  56.     VAddEq (IPoint, Ray->Initial);
  57.  
  58.     if (Point_In_Clip (&IPoint, Object->Clip))
  59.       {
  60.       push_entry(Depth1,IPoint,Object,Depth_Stack);
  61.       Intersection_Found = TRUE;
  62.       }
  63.  
  64.     if (Depth2 != Depth1)
  65.       {
  66.       VScale (IPoint, Ray->Direction, Depth2);
  67.       VAddEq (IPoint, Ray->Initial);
  68.  
  69.       if (Point_In_Clip (&IPoint, Object->Clip))
  70.         {
  71.         push_entry(Depth2,IPoint,Object,Depth_Stack);
  72.         Intersection_Found = TRUE;
  73.         }
  74.       }
  75.     }
  76.   return (Intersection_Found);
  77.   }
  78.  
  79. int Intersect_Boxx (Ray, box, Depth1, Depth2)
  80. RAY *Ray;
  81. BOX *box;
  82. DBL *Depth1, *Depth2;
  83.   {
  84.   DBL t, tmin, tmax;
  85.   VECTOR P, D;
  86.  
  87.   Ray_Box_Tests++;
  88.  
  89.   /* Transform the point into the boxes space */
  90.   if (box->Trans != NULL) 
  91.     {
  92.     MInvTransPoint(&P, &Ray->Initial, box->Trans);
  93.     MInvTransDirection(&D, &Ray->Direction, box->Trans);
  94.     }
  95.   else 
  96.     {
  97.     P.x = Ray->Initial.x;
  98.     P.y = Ray->Initial.y;
  99.     P.z = Ray->Initial.z;
  100.     D.x = Ray->Direction.x;
  101.     D.y = Ray->Direction.y;
  102.     D.z = Ray->Direction.z;
  103.     }
  104.  
  105.     tmin = 0.0;
  106.   tmax = HUGE_VAL;
  107.  
  108.   /* Sides first */
  109.   if (D.x < -EPSILON) 
  110.     {
  111.     t = (box->bounds[0].x - P.x) / D.x;
  112.     if (t < tmin)
  113.       return 0;
  114.     if (t <= tmax)
  115.       tmax = t;
  116.     t = (box->bounds[1].x - P.x) / D.x;
  117.     if (t >= tmin) 
  118.       {
  119.       if (t > tmax)
  120.         return 0;
  121.       tmin = t;
  122.       }
  123.     }
  124.   else if (D.x > EPSILON) 
  125.     {
  126.     t = (box->bounds[1].x - P.x) / D.x;
  127.     if (t < tmin)
  128.       return 0;
  129.     if (t <= tmax)
  130.       tmax = t;
  131.     t = (box->bounds[0].x - P.x) / D.x;
  132.     if (t >= tmin) 
  133.       {
  134.       if (t > tmax)
  135.         return 0;
  136.       tmin = t;
  137.       }
  138.     }
  139.   else if (P.x < box->bounds[0].x || P.x > box->bounds[1].x)
  140.     return 0;
  141.  
  142.   /* Check Top/Bottom */
  143.   if (D.y < -EPSILON) 
  144.     {
  145.     t = (box->bounds[0].y - P.y) / D.y;
  146.     if (t < tmin)
  147.       return 0;
  148.     if (t <= tmax)
  149.       tmax = t;
  150.     t = (box->bounds[1].y - P.y) / D.y;
  151.     if (t >= tmin) 
  152.       {
  153.       if (t > tmax)
  154.         return 0;
  155.       tmin = t;
  156.       }
  157.     }
  158.   else if (D.y > EPSILON) 
  159.     {
  160.     t = (box->bounds[1].y - P.y) / D.y;
  161.     if (t < tmin)
  162.       return 0;
  163.     if (t <= tmax)
  164.       tmax = t;
  165.     t = (box->bounds[0].y - P.y) / D.y;
  166.     if (t >= tmin) 
  167.       {
  168.       if (t > tmax)
  169.         return 0;
  170.       tmin = t;
  171.       }
  172.     }
  173.   else if (P.y < box->bounds[0].y || P.y > box->bounds[1].y)
  174.     return 0;
  175.  
  176.   /* Now front/back */
  177.   if (D.z < -EPSILON) 
  178.     {
  179.     t = (box->bounds[0].z - P.z) / D.z;
  180.     if (t < tmin)
  181.       return 0;
  182.     if (t <= tmax)
  183.       tmax = t;
  184.     t = (box->bounds[1].z - P.z) / D.z;
  185.     if (t >= tmin) 
  186.       {
  187.       if (t > tmax)
  188.         return 0;
  189.       tmin = t;
  190.       }
  191.     }
  192.   else if (D.z > EPSILON) 
  193.     {
  194.     t = (box->bounds[1].z - P.z) / D.z;
  195.     if (t < tmin)
  196.       return 0;
  197.     if (t <= tmax)
  198.       tmax = t;
  199.     t = (box->bounds[0].z - P.z) / D.z;
  200.     if (t >= tmin) 
  201.       {
  202.       if (t > tmax)
  203.         return 0;
  204.       tmin = t;
  205.       }
  206.     }
  207.   else if (P.z < box->bounds[0].z || P.z > box->bounds[1].z)
  208.     return 0;
  209.  
  210.   *Depth1 = tmin;
  211.   *Depth2 = tmax;
  212.  
  213.   /* printf("Box intersects: %g, %g\n", *Depth1, *Depth2); */
  214.   if ((*Depth1 < Small_Tolerance) || (*Depth1 > Max_Distance))
  215.     if ((*Depth2 < Small_Tolerance) || (*Depth2 > Max_Distance))
  216.       return (FALSE);
  217.     else
  218.       *Depth1 = *Depth2;
  219.   else
  220.     if ((*Depth2 < Small_Tolerance) || (*Depth2 > Max_Distance))
  221.       *Depth2 = *Depth1;
  222.  
  223.   Ray_Box_Tests_Succeeded++;
  224.   return (TRUE);
  225.   }
  226.  
  227. int Inside_Box (IPoint, Object)
  228. VECTOR *IPoint;
  229. OBJECT *Object;
  230.   {
  231.   VECTOR New_Point;
  232.   BOX *box = (BOX *) Object;
  233.  
  234.   /* Transform the point into the boxes space */
  235.   if (box->Trans != NULL)
  236.     MInvTransPoint(&New_Point, IPoint, box->Trans);
  237.   else
  238.     New_Point = *IPoint;
  239.  
  240.   /* Test to see if we are inside the box */
  241.   if (New_Point.x < box->bounds[0].x || New_Point.x > box->bounds[1].x)
  242.     return ((int) box->Inverted);
  243.   if (New_Point.y < box->bounds[0].y || New_Point.y > box->bounds[1].y)
  244.     return ((int) box->Inverted);
  245.   if (New_Point.z < box->bounds[0].z || New_Point.z > box->bounds[1].z)
  246.     return ((int)box->Inverted);
  247.   /* Inside the box */
  248.   return 1-box->Inverted;
  249.   }
  250.  
  251. void Box_Normal (Result, Object, IPoint)
  252. OBJECT *Object;
  253. VECTOR *Result, *IPoint;
  254.   {
  255.   VECTOR New_Point;
  256.   BOX *box = (BOX *) Object;
  257.  
  258.   /* Transform the point into the boxes space */
  259.   if (box->Trans != NULL)
  260.     MInvTransPoint(&New_Point, IPoint, box->Trans);
  261.   else 
  262.     {
  263.     New_Point.x = IPoint->x;
  264.     New_Point.y = IPoint->y;
  265.     New_Point.z = IPoint->z;
  266.     }
  267.  
  268.     Result->x = 0.0; Result->y = 0.0; Result->z = 0.0;
  269.   if (close(New_Point.x, box->bounds[1].x))
  270.     Result->x = 1.0;
  271.   else if (close(New_Point.x, box->bounds[0].x))
  272.     Result->x = -1.0;
  273.   else if (close(New_Point.y, box->bounds[1].y))
  274.     Result->y = 1.0;
  275.   else if (close(New_Point.y, box->bounds[0].y))
  276.     Result->y = -1.0;
  277.   else if (close(New_Point.z, box->bounds[1].z))
  278.     Result->z = 1.0;
  279.   else if (close(New_Point.z, box->bounds[0].z))
  280.     Result->z = -1.0;
  281.   else 
  282.     {
  283.     /* Bad result, should we do something with it? */
  284.       Result->x = 1.0;
  285.     }
  286.  
  287.   /* Transform the point into the boxes space */
  288.   if (box->Trans != NULL) 
  289.     {
  290.     MTransNormal(Result, Result, box->Trans);
  291.     VNormalize(*Result, *Result);
  292.     }
  293.   }
  294.  
  295. void *Copy_Box (Object)
  296. OBJECT *Object;
  297.   {
  298.   BOX *New;
  299.  
  300.   New  = Create_Box();
  301.   *New = *((BOX *) Object);
  302.  
  303.   New->Trans = Copy_Transform(((BOX *)Object)->Trans);
  304.  
  305.   return (New);
  306.   }
  307.  
  308. void Translate_Box (Object, Vector)
  309. OBJECT *Object;
  310. VECTOR *Vector;
  311.   {
  312.   TRANSFORM Trans;
  313.  
  314.   if (((BOX *)Object)->Trans == NULL)
  315.     {
  316.     VAddEq(((BOX *)Object)->bounds[0], *Vector);
  317.     VAddEq(((BOX *)Object)->bounds[1], *Vector);
  318.     Object->Bounds.Lower_Left = ((BOX *)Object)->bounds[0];
  319.     }
  320.   else
  321.     {
  322.     Compute_Translation_Transform(&Trans, Vector);
  323.     Transform_Box(Object, &Trans);
  324.     }
  325.   }
  326.  
  327. void Rotate_Box (Object, Vector)
  328. OBJECT *Object;
  329. VECTOR *Vector;
  330.   {
  331.   TRANSFORM Trans;
  332.   Compute_Rotation_Transform(&Trans, Vector);
  333.   Transform_Box(Object, &Trans);
  334.   }
  335.  
  336. void Scale_Box (Object, Vector)
  337. OBJECT *Object;
  338. VECTOR *Vector;
  339.   {
  340.   TRANSFORM Trans;
  341.  
  342.   if (((BOX *)Object)->Trans == NULL)
  343.     {
  344.     VEvaluateEq(((BOX *)Object)->bounds[0], *Vector);
  345.     VEvaluateEq(((BOX *)Object)->bounds[1], *Vector);
  346.     Object->Bounds.Lower_Left = ((BOX *)Object)->bounds[0];
  347.     VSub(Object->Bounds.Lengths, ((BOX *)Object)->bounds[1],
  348.       ((BOX *)Object)->bounds[0]);
  349.     }
  350.   else
  351.     {
  352.     Compute_Scaling_Transform(&Trans, Vector);
  353.     Transform_Box(Object, &Trans);
  354.     }
  355.   }
  356.  
  357. void Invert_Box (Object)
  358. OBJECT *Object;
  359.   {
  360.   ((BOX *)Object)->Inverted = 1 - ((BOX *)Object)->Inverted;
  361.   }
  362.  
  363. void Transform_Box (Object, Trans)
  364. OBJECT *Object;
  365. TRANSFORM *Trans;
  366.   {
  367.   BOX *box = (BOX *)Object;
  368.   if (box->Trans == NULL)
  369.     box->Trans = Create_Transform();
  370.   Compose_Transforms(box->Trans, Trans);
  371.   Object->Bounds.Lower_Left = box->bounds[0];
  372.   VSub(Object->Bounds.Lengths, box->bounds[1], box->bounds[0]);
  373.   recompute_bbox(&Object->Bounds, box->Trans);
  374.   }
  375.  
  376. BOX *Create_Box ()
  377.   {
  378.   BOX *New;
  379.  
  380.   if ((New = (BOX *) malloc (sizeof (BOX))) == NULL)
  381.     MAError ("box");
  382.  
  383.   INIT_OBJECT_FIELDS(New, BOX_OBJECT, &Box_Methods)
  384.  
  385.     Make_Vector (&(New->bounds[0]), -1.0, -1.0, -1.0);
  386.   Make_Vector (&(New->bounds[1]),  1.0,  1.0,  1.0);
  387.   /* Recalculate the bounds */
  388.   Make_Vector(&New->Bounds.Lower_Left, -1.0, -1.0, -1.0);
  389.   Make_Vector(&New->Bounds.Lengths, 2.0, 2.0, 2.0);
  390.   /* Unlike HField, we don't always have a trans here */
  391.   New->Trans = NULL;
  392.   New->Inverted = FALSE;
  393.   return (New);
  394.   }
  395.  
  396. void Destroy_Box (Object)
  397. OBJECT *Object;
  398.   {
  399.   Destroy_Transform(((BOX *)Object)->Trans);
  400.   free (Object);
  401.   }
  402.